home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
BBS in a Box 7
/
BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso
/
Files
/
Tele
/
M
/
MiniBBS 1.1.cpt
/
MiniBBS 1.1
/
MiniBBS Sends File.TXT
< prev
next >
Wrap
Text File
|
1988-07-28
|
2KB
|
51 lines
Settings File = Your Settings File
Script Name = MiniBBS Sends File
Command Key =
F-key =
Menu = NO
Button = NO
1 If Expression "= NumberToSend = 0"
2 Send Text String "MiniBBS has not designated any files for sending today. ^M^M"
3 Else
4 Send Text String "= 'Number of Files to Send: ',NumberToSend,'.^M'"
5 Set Variable NowSendingNum from Expression "= 0"
6 Send Text String "Files will be sent using the XModem Protocol. ^M"
7 Send Text String "Would you like the file to be sent using MacBinary XModem? ^M"
8 Send Text String "(Just type Y or N, and press <RETURN>.^M"
9 Send Text String " Press <RETURN> alone to exit without receiving files.)^M"
10 Wait for Line Not Containing "without receiving"
11 If Line Contains "Y"
12 Set Variable UseMacBinary from Expression "= TRUE"
13 Send Text String "OK- files will be sent using MacBinary XModem.^M"
14 Else If Line Contains "N"
15 Set Variable UseMacBinary from Expression "= FALSE"
16 Send Text String "OK- files will be sent using standard XModem.^M"
17 Else
18 Return Null
19 End If
20 Repeat
21 Set Variable NowSendingNum from Expression "= NowSendingNum+1"
22 Set Variable NowSendingName from Expression "= 'File_',NowSendingNum)"
23 Send Text String "= 'About To Send ',NowSendingName,'^M'"
24 If Expression "= UseMacBinary = TRUE"
25 Send Text String "Press <RETURN> when you are ready to receive file using^M"
26 Send Text String "XModem MacBinary Protocol.^M"
27 Else
28 Send Text String "Press <RETURN> when you are ready to receive file using^M"
29 Send Text String "XModem Protocol.^M"
30 End If
31 Wait for Line Not Containing "Protocol"
32 If Expression "= UseMacBinary = TRUE"
33 Send File * XMODEM MacBinary "= NowSendingName"
34 Else
35 Send File * XMODEM Plain "= NowSendingName"
36 End If
37 If Failure
38 Send Text String "File Transfer Incomplete!"
39 Return Failure
40 End If
41 Send Text String "File transfer appears successful from this end.^M^M"
42 Until Expression "= NowSendingNum = NumberToSend"
43 End If